home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / vmmngr.zip / EXVMQUEU.PAS < prev    next >
Pascal/Delphi Source File  |  1990-07-16  |  952b  |  47 lines
  1. program exvmqueu;
  2.  
  3. Uses
  4.   OpRoot,
  5.   Vmmngr;
  6.  
  7. var
  8.   ExQueue : VmmStaticQueue;
  9.   i, j    : Word;
  10.  
  11. begin
  12.   if not ExQueue.Init(11, Sizeof(Word), True) then begin
  13.     Writeln('Failed to create VmmStaticQueue, Status = ', InitStatus);
  14.     Halt;
  15.   end;
  16.   for i := 1 to 10 do begin
  17.     Write('Pushing ', i, '... ');
  18.     ExQueue.PushTail(i);
  19.   end;
  20.   Writeln;
  21.   Writeln('Removing value 6...');
  22.   i := 6;
  23.   ExQueue.Remove(i);
  24.   for i := 1 to 7 do begin
  25.     ExQueue.PopHead(j);
  26.     Write('Popping ', j, '... ');
  27.   end;
  28.   Writeln;
  29.   for i := 11 to 25 do begin
  30.     Write('Pushing ', i, '... ');
  31.     ExQueue.PushTail(i);
  32.   end;
  33.   Writeln;
  34.   Writeln('Removing value 13...');
  35.   i := 13;
  36.   ExQueue.Remove(i);
  37.   Writeln('Now popping remaining elements...');
  38.   repeat
  39.     ExQueue.PopHead(j);
  40.     i :=ExQueue.GetStatus;
  41.     if i = 0 then
  42.       Writeln('Popping ', j, '... ');
  43.   until i <> 0;
  44.   Writeln;
  45.   ExQueue.Done;
  46. end.
  47.